Top 10k strings from Sokoban (2001)(VTS).tap
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
7 5 EX,EY;"!#"; 4 ddddddddddddd 4 GAPUSH=GAPUSH+1 4 GAMOVE=GAMOVE+1 4 (STARTMC/256 4 (LONGMC/256 2 VALASZ=VALASZ- 2 VALASZ=VALASZ+ 2 STARTMC=(50000 2 N$="-PREDATOR-" 2 LOTO=SELECT2 2 LOTO<LOFROM 2 LONGMC=(200 2 LOFROM=SELECT2 2 FLOORSE=SKIP 2 FLOORSE=FLOORA 2 FLOORSE=99 2 FLOORSE<FLOORA 2 FLOORREF=SELECT2: 2 *LOFROM)-1 2 *(LOTO-LOFROM))+201 2 (SUPUSH/65536 2 (SUPUSH/256 2 (SUMOVE/65536 2 (SUMOVE/256 2 "2",HELY;" 2 2 2 2 1 sokoba scr 1 sokoba prg<QX 1 sokoba aux 1 fFFFfFfFfFDFFfFfFfFFFfFfFfFFFf 1 \`````````^ 1 [4-SAVE ] 1 [3-LOAD ] 1 [2-REPAIR ] 1 [1-NEW ] 1 YET YOU CAN PLAY ALL FLOORS. 1 XD=XD-((XB+XD)-175 1 XC=XC-((XA+XC)-255 1 WHEN YOU READ THIS TEXT.... THANK YOU FOR PLAY THIS GAME WRITTEN BY/GRAPHICS BY THOMAS VASKO IDEA FROM PC FLOORS DESIGN H.ROBERT AND V.THOMAS 48K VERSION WRITTEN IN YEAR 2001 THOMAS VASKO'S SOFTWARE ALL RIGHTS RESERVED 1 VASKO THOMAS'S SOFT 2001 1 TOM VASKO AND H.R. 1 TIME3=TIME3-255 1 TIME2=TIME2-255 1 TIME2=TIME2+1 1 TIME1=TIME1+1 1 T=T-MINU*60 1 T=T-HOUR*60 1 SUPUSH=SUPUSH-(( 1 SUPUSH=GAPUSH+PULL 1 SUMOVE=SUMOVE-(( 1 SUMOVE=GAMOVE+MOVE: 1 START=7000 1 SOKOFLOORS 1 SOKOBAN 1 SKIP=FLOORSE 1 SELECT2>MAX+PREFIX 1 SELECT2=SELECT2- 1 SELECT2=SELECT2+ 1 SELECT2=MIN 1 SELECT2=MAX: 1 SELECT2=MAX+PREFIX 1 SELECT2<MIN 1 Press ENTER to Expand the Whole Program 1 PULL>90000 1 PROGRAMMED IN 2000. FLOORS WRITED BY: 1 PRESS CAPS+SPACE TO BACK 1 No. STATEMENTS : 1 No. LINES : 1 No. Bytes: 1 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 1 N$(G-60798 1 MOVE>650000 1 Length of Program Only:! 1 LINE NO:NOW RENUMBER PROGRAM 1 KEZD=50000 1 KEZD=(50000 1 INFORMATION 1 HELY=HELY- 1 HELY=HELY+ 1 HEJE=HEJE+1 1 GOTO START 1 GGGGGGGGGGGAAGGGGGGGGGGGGGGGGA 1 GAME ABORTED 1 First Byte: 1 FROM LINE NO:TO LINE NO:AFTER LINE NO:NOW RENUMBER PROGRAM 1 FLOORSE=MAX 1 FLOORSE=FLOORSE- 1 FLOORSE=FLOORSE+ 1 FLOORSE<MAX 1 FLOORREF>MAX 1 FLOOR=SELECT2: 1 FLOOR=FLOORSE 1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 1 DDTDTDTDTTDDDTDTDTDTDTDTDTDDBT 1 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 1 DDDDDDDDDDDD 1 BLOCK COPY 1 BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 1 Auto-start Line No: 1 Array Name: 1 >>>FIRST START LINE <<< 1 ;SKIP;" " 1 ;HOUR;":";MINU;".";SECO; 1 ;"\```````````````````^ 1 ;"[ ] 1 ;"[ ] 1 ;"YOU RUN OUT OF TIME": 1 ;"YOU HAVE A SKIP NOW": 1 ;"TOO MUCH MOVE/PULL ": 1 ;"PLEASE WAIT ";11 1 ;"LAST FLOOR CAN'T ": 1 ;"FLOOR IS COMPLETTED": 1 ;" YOU FINISHED THIS GAME... 1 ;" TAPE LOADING ERROR": 1 ;" BYTES FREE.": 1 ;" START TAPE ": 1 ;" PRESS ANY KEY ": 1 ;" SAVE ": 1 ;" " 1 ;" 1 7E3 1 4600h 1 ,(SUPUSH-(( 1 ,(SUMOVE-(( 1 +FLOORREF*200 1 +FLOOR*200 1 ++F+N+++"]\*S\~ 1 *S\##"]\^#V 1 **********************************************************************************************************************************************AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZaabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz 1 (KEZD+((S-1 1 (KEZD+((11 1 #T]##N#F#~ 1 "SOKOFLOORS" 1 "PROBLEM": 1 "GOOD DAY MY MASTER."'"I HAVE IN MY MEMORY"'65535 1 "ERROR-FILE >SOKOFLOORS.";FLOORSE;"<"'" NOT FOUND": 1 "8";SELECT2;" " 1 "65521",LONGMC-(( 1 "65518",STARTMC-(( 1 "65492",LONGMC-(( 1 "65489",STARTMC-(( 1 "60819",FLOORSE: 1 "60818",(( 1 "6";"\````^ 1 "6";"[ ]"; 1 "3";"\``````````^ 1 "3";"[ SINCLAIR ] 1 "3";"[ KEYBOARD ] 1 "3";"[ CURSORS ] 1 "3";"[ ] 1 "26";FLOORSE;" ": 1 "26";FLOORSE: 1 "26";FLOORSE 1 "24";SKIP;" "; 1 "23";FLOORA;" "; 1 "23";"\``````^ 1 "23";"[ ] 1 "2",HELY;A$: 1 "2",HELY;" " 1 "2",HELY;" ": 1 "15";"\``````````````^ 1 "15";"[e- ] 1 "15";"[d- ] 1 "15";"[SKIPPED: ] 1 "15";"[P- ] 1 "15";"[FLOORS- ] 1 "15";"[ > < ] 1 "15";"[ ] 1 "15";"&**** 1 "'"\```````````^ 1 "'"[SKIP LEVEL] 1 "'"[FLOOR DOWN] 1 "'"[FLOOR UP ] 1 "'"[ABORT GAME] 1 "'"[ SAVE GAME ] 1 "'"[ PLAY GAME ] 1 "'"[ LOAD GAME ] 1 "'"[ CONTROLS ] 1 "'"[ EDITING ] 1 W E L L D O N E 1 THE GAME 1 YYYYAAAAHHHHOOOOOO" 1 1 1 1 1 1